home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HeiBe Erotik
/
HeiBe Erotik.iso
/
erovoll
/
dice
/
dice3.dir
/
00052_Script_52
< prev
next >
Wrap
Text File
|
1979-12-31
|
1KB
|
33 lines
on AusgewΣhlte_setzen
global AusgewΣhlte, AktGewΣhlt, GewΣhltWurf, WurfWerte, WurfWahl, WahlStatus
if WahlStatus=0 then exit
set AusgewΣhlte=AusgewΣhlte+1
setAt GewΣhltWurf, AusgewΣhlte, AktGewΣhlt
setAt WurfWahl, AktGewΣhlt,1
set TempWert=value(getAt(WurfWerte, AktGewΣhlt))+66
set the member of sprite 49+AusgewΣhlte=member TempWert
set the visible of sprite 39+AktGewΣhlt to false
set the visible of sprite 44+AktGewΣhlt to false
set the visible of sprite 49+AusgewΣhlte to true
--set the member of sprite 9 to member (56+AusgewΣhlte) of castlib "Internal"
puppetpalette "dicetemp Palette"
end AusgewΣhlte_setzen
on AusgewΣhlte_sortieren
global AusgewΣhlte, AktGewΣhlt, GewΣhltWurf, WurfWerte, WurfWahl
set TempWert=getAt(GewΣhltWurf, AktGewΣhlt)
set the visible of sprite 49+AusgewΣhlte to false
repeat with i= AktGewΣhlt to AusgewΣhlte-1
setAt(GewΣhltWurf,i,(getAt(GewΣhltWurf,i+1)))
set TempWert1=62+i
set the member of sprite (49+i)=the member of sprite (49+i+1)
updatestage
end repeat
--set the member of sprite 9 to member (56+AusgewΣhlte-1) of castlib "Internal"
set the visible of sprite 39+TempWert to true
set the visible of sprite 44+TempWert to true
setAt Wurfwahl, TempWert, 0
setAt GewΣhltWurf,AusgewΣhlte,0
set AusgewΣhlte=AusgewΣhlte-1
puppetpalette "dicetemp Palette"
end AusgewΣhlte_sortieren